
IN THE SPECIFICATION: 

Please amend the Abstract as follows: 

Abstract 

Dates stored in symbolic form in a database are reformatted to permit easy 
5 manipulation and sorting of date-related information. Each date in M1M2, D1D2, 
and Y1Y2 format is converted to C1C2, Y1Y2, FmIMiM?. and D1D2 format. To 
accomplish the conversion, a 10-decade window starting on YaYb is defined that 
encompasses all dates in the database. The value of QC2 is determined by the 
relative values of Yi Y2 and Y a Yb. The reformatted date information is particularly 
10 useful when the reformatting is in QC2Y1Y2M1M2D1D2 format, because sorting by 
date is accomplished using a pure numerical-value sort. 

Please amend the Specification by adding the following to the end of the 
Specification: 



15 I - -Century Conversion - - 

J Bruce Dickens Apr 04. 1996 

* 
■ 

10 open structure toos:name 'otms src dir:tools* 
20 open #2 : name 'last inv.dat'. access output 



print " Tools 'Last Inventory Data Format' Check for 1996 Inventory" 

print 'Tool No ": " Model No ": " LAST INV ": "LAST INV 

print "= = ":"==== ";" =====": "= = 

25 print "Extract Data:" 

print #2: "ToolNo ": " Model No ": " LAST INV ": 

"LAST INV" 

print #2: "== ": " ====== " : " ======= " : 

a >> 

30 print #2: "Extract Data" 
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20 extract structure tools 

vv$ = lpadS (elements (tools (last inv\3 "D, 2. "0") 

mm$ = lpadS (elements (tools (last invU "/"). 2. "0") 

5 dd$ = lpadS (elements (tools (last inv\2."n. 2. "0") 

cc$= w$ + "/" + mm$ + dd$ 
cl$ = changeS (ccl 7\ ") 
if cl$ri:21 . ^50^ then 
c$ = '20* + cl$ 
else 

c$='19'+cl$ 
end if 

include c$. '19960101' 
sort by tools(model) 
sort bv rpad$(c$.8. '0') 
if c$fl:81. '19960101' then 
print tools(toolno) : tab (23): toolsdnodel): & 

tab(35); toosdast inv): tab(44); c$ 

print #2: toolsftoolno) : tab (23): tools(model): & 

tab(35): toosdast inv): tab(44): c$ 

if valid ( cl$. "digits" ) = 0 then 

print: tab(53V. " Date format is not digits" 

print #2: :tab(53V. " Date format is not digits" 

end if 

25 J if valid ( cl$. "minlength 6" ) = 0 then 

J print: tab(50): " Date format is short" 

J print #2: :tab(50V. " Date format is short" 

J end if 

iftoolsdast inv) = ""then 

30 print: tab(53): " Date format is blank" 

print #2: :tab(53): " Date format is blank" 
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